home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / conversions.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  301 lines
  1. 5 PRINT"[147][156]":POKE 53272,20:POKE 53280,15:POKE 53281,0
  2. 7 PRINT""
  3. 9 PRINTTAB(11):PRINT"[156]  CONVERSIONS  "
  4. 11 PRINT""
  5. 13 PRINT"[159]                     [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  6. 15 PRINT"[158]                      AN[170][205][206][180][213][201]
  7. 17 [153]"                        +  SGNMID$TAN PROGRAM
  8. 19 PRINT"[159]                     [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  9. 20 FOR N=1TO3000:NEXT N
  10. 90 POKE53281,1
  11. 100 PRINT"             * * * * *"
  12. 110 PRINT""
  13. 120 PRINT"THIS PROGRAM WAS DESIGNED TO ALLOW CON-"
  14. 130 PRINT"VERSIONS FROM ONE MEASUREMENT TO ANOTHER
  15. 140 [153]"FOR EXAMPLE: FROM FARENHEIT TO CELCIUS"
  16. 150 [153]
  17. 170 [153]"THE COMPUTER WILL ASK FOR THE TYPE OF   CONVERSION."
  18. 175 [153]
  19. 180 [153]"AFTER DESIGNATING THE CONVERSION, YOU"
  20. 190 [153]"SHOULD ENTER THE MEASUREMENT YOU WANT TOCONVERT."
  21. 195 [153]
  22. 197 [153]"ANSWERS WILL BE GIVEN TO THREE DECIMAL  PLACES."
  23. 198 [153]
  24. 200 [153]"THE COMPUTER WILL RETURN THE FIGURE
  25. 220 PRINT"IMMEDIATELY"
  26. 270 PRINT
  27. 280 PRINT"YOU WILL CHOOSE YOUR MEASUREMENT TYPE"
  28. 282 PRINT" FROM A MENU OF ALL TYPES AVAILABLE."
  29. 284 PRINT"PRESS ANY KEY TO CONTINUE.
  30. 286 [161] A$:[139]A$[178]""[167] 286
  31. 287 [153]"LOAD"
  32. 290 [153]"                  MENU                  "
  33. 295 [153]
  34. 300 [153]"      STOP1WAIT.  FARENHEIT TO CELCIUS OR"
  35. 310 [153]"          CELCIUS TO FARENHEIT"
  36. 320 [153]"      2WAIT.  INCHES TO CENTIMETERS OR"
  37. 325 [153]"          CENTIMETERS TO INCHES"
  38. 330 [153]"      3WAIT.  FEET TO METERS OR"
  39. 335 [153]"          METERS TO FEET"
  40. 340 [153]"      4WAIT.  MILES TO KILOMETERS OR"
  41. 345 [153]"          KILOMETERS TO MILES"
  42. 350 [153]"      CLR5WAIT.  OUNCES TO GRAMS OR"
  43. 355 [153]"          GRAMS TO OUNCES"
  44. 360 [153]"      VERIFY6WAIT.  POUNDS TO KILOS OR"
  45. 365 [153]"          KILOS TO POUNDS"
  46. 370 [153]"      CONT7WAIT   QUARTS TO LITERS OR "
  47. 371 [153]"          LITERS TO QUARTS"
  48. 372 [153]"      DEF8WAIT.  GALLONS TO LITERS OR"
  49. 373 [153]"          LITERS TO GALLONS"
  50. 374 [153]"STOP          - - - - - - - - - "
  51. 375 [153]"      FOR9WAIT.  EXIT PROGRAM"
  52. 380 [153]""
  53. 400 [153]"PLEASE PRESS THE NUMBER OF THE CONVER-  SION YOU DESIRE AND HIT RETURN."
  54. 405 [133] A
  55. 411 [139]A[178]2[167] [137] 600
  56. 412 [139]A[178]3[167] [137] 700
  57. 413 [139]A[178]4[167] [137] 800
  58. 414 [139]A[178]5[167] [137] 900
  59. 415 [139]A[178]6[167] [137] 1000
  60. 416 [139]A[178]7[167] [137] 1100
  61. 417 [139]A[178]8[167] [137] 1200
  62. 470 [139] A[178]9[167] [128]
  63. 500 [153]"LOADSTOPFAHRENHEIT, TO CELCIUS OR VICE VERSA":[153]
  64. 510 [153]"IF FAHRENHEIT TO CELCIUS, PRESS F":[153]
  65. 520 [153]"IF CELCIUS TO FAHRENHEIT, PRESS C":[153]
  66. 525 [133] A$
  67. 530 [139]A$[178]"F"[137] 535
  68. 532 [139]A$[178]"C"[137] 555
  69. 535 [133] "ENTER DEGREES FAHRENHEIT: ";F
  70. 537 [153]
  71. 540 C[178](F[171]32)[172]5[173]9:C[178]C[172]1000[170].5:C[178]([181](C))[173]1000
  72. 550 [153] F;"DEG. FAHRENHEIT = ";C;" DEG.     CELCIUS"
  73. 552 [153]:[137] 575
  74. 555 [133] "ENTER DEGREES CELCIUS: ";C
  75. 556 [153]:F[178](C[172]9)[173]5[170]32
  76. 565 [153] C;"DEG. CELCIUS = ";F;"DEG. FAHRENHEIT":[153]
  77. 575 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS SAME TYPE?  PRESS Y OR N"
  78. 580 [133] B$:[139] B$[178]"Y"[137] 500
  79. 585 [139] B$[178]"N"[137] 287
  80. 600 [153]"LOADINCHES TO CENTIMETERS OR VICE VERSA"
  81. 602 [153]
  82. 605 [153]"IF INCHES TO CENTIMETERS, PRESS I"
  83. 607 [153]
  84. 610 [153]"IF CENTIMETERS TO INCHES, PRESS C"
  85. 612 [153]
  86. 615 [133] A$
  87. 617 [139] A$[178]"I"[167] [137] 625
  88. 620 [139] A$[178]"C"[167] [137] 650
  89. 625 [133]"ENTER NUMBER OF INCHES:";I
  90. 627 [153]
  91. 630 C[178]2.54[172]I:C[178]C[172]1000[170].5:C[178]([181](C))[173]1000
  92. 635 [153] I;"INCHES =";C;"CENTIMETERS"
  93. 636 [153]:[153]"TO DETERMINE FRACTIONAL EQUIVALENTS, PRESS F"
  94. 637 [153]:[153]"IF YOU DON'T WANT FRACTIONAL EQUIVALENTSPRESS N"
  95. 638 [133] C$:[139] C$[178]"F"[167] [137] 1300
  96. 639 [153]:[139] C$[178]"N"[167] [137] 640
  97. 640 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE?  PRESS Y OR N"
  98. 642 [133] B$
  99. 644 [139] B$[178]"Y"[167] [137] 600
  100. 646 [139] B$[178]"N"[167] [137] 287
  101. 650 [133]"ENTER NUMBER OF CENTIMETERS:";C
  102. 651 [153]
  103. 652 I[178].394[172]C:I[178]I[172]1000[170].5:I[178]([181](I))[173]1000
  104. 655 [153] C;"CENTIMETERS =";I;"INCHES"
  105. 657 [153]:[153]
  106. 660 [137] 636
  107. 700 [153]"LOADFEET TO METERS OR VICE VERSA"
  108. 701 [153]
  109. 702 [153]"IN THIS CATEGORY YOU MAY ALSO CHOOSE    YARDS TO METERS OR VICE VERSA."
  110. 703 [153]
  111. 704 [153]"IF FEET TO METERS, PRESS F"
  112. 706 [153]
  113. 708 [153]"IF YARDS TO METERS, PRESS Y"
  114. 710 [153]
  115. 712 [153]"IF METERS TO FEET, PRESS M"
  116. 714 [153]
  117. 716 [153]"IF METERS TO YARDS, PRESS X"
  118. 718 [153]
  119. 720 [133] A$
  120. 722 [139] A$[178]"F"[167] [137] 730
  121. 724 [139] A$[178]"Y"[167] [137] 750
  122. 726 [139] A$[178]"M"[167] [137] 765
  123. 728 [139] A$[178]"X"[167] [137] 775
  124. 730 [133]"ENTER NUMBER OF FEET: ";F
  125. 732 [153]
  126. 734 M[178].305[172]F:M[178]M[172]1000[170].5:M[178]([181](M))[173]1000
  127. 736 [153] F;"FEET = ";M;"METERS"
  128. 738 [153]
  129. 740 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE?  PRESS Y OR N"
  130. 742 [133] B$
  131. 744 [139] B$[178]"Y"[167] [137] 700
  132. 746 [139] B$[178]"N"[167] [137] 287
  133. 750 [133] "ENTER NUMBER OF YARDS:";Y
  134. 752 [153]
  135. 754 M[178].914[172]Y:M[178](([181](M[172]1000))[173]1000)
  136. 756 [153] Y;"YARDS = ";M;"METERS"
  137. 758 [153]
  138. 760 [137] 740
  139. 762 [139]
  140. 765 [133]"ENTER NUMBER OF METERS: ";M
  141. 767 [153]
  142. 769 F[178]3.05[172]M:F[178]F[172]1000[170].5:F[178]([181](F))[173]1000
  143. 770 [153] M;"METERS = ";F;"FEET"
  144. 771 [153]
  145. 772 [137] 740
  146. 775 [153]
  147. 777 [133]"ENTER NUMBER OF METERS:";X
  148. 779 [153]
  149. 780 Y[178]1.094[172]X:Y[178]Y[172]1000[170].5:Y[178]([181](Y))[173]1000
  150. 782 [153] X;"METERS = ";Y;"YARDS"
  151. 784 [153]
  152. 786 [137] 740
  153. 800 [153]"LOADMILES TO KILOMETERS OR VICE VERSA"
  154. 805 [153]
  155. 810 [153]"IF MILES TO KILOMETERS, PRESS M"
  156. 815 [153]
  157. 820 [153]"IF KILOMETERS TO MILES, PRESS K"
  158. 825 [153]
  159. 830 [133] C$
  160. 831 [139] C$[178]"M"[137] 833
  161. 832 [139] C$[178]"K"[137] 850
  162. 833 [153]
  163. 834 [153]"ENTER NUMBER OF MILES:";:[133] M
  164. 835 [153]
  165. 839 K[178]1.609[172]M:K[178](([181](K[172]1000))[173]1000)
  166. 842 [153]
  167. 845 [153]M;"MILES = ";K;"KILOMETERS"
  168. 846 [137] 875
  169. 850 [153]:[133]"ENTER NUMBER OF KILOMETERS:";K
  170. 852 [153]:[153]
  171. 853 M[178].622[172]K:M[178](([181](M[172]1000))[173]1000)
  172. 855 [153] K;"KILOMETERS = ";M;"MILES"
  173. 875 [153]:[153]
  174. 876 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS TYPE? PRESS Y OR N"
  175. 877 [133] D$
  176. 878 [139] D$[178]"Y"[137] 800
  177. 880 [139] D$[178]"N"[137] 287
  178. 900 [153]"LOADCLROUNCES TO GRAMS ORVICE VERSA":[153]
  179. 905 [153]
  180. 910 [153]"IF OUNCES TO GRAMS, PRESS O"
  181. 915 [153]
  182. 920 [153]"IF GRAMS TO OUNCES, PRESS G"
  183. 925 [153]
  184. 930 [133] D$
  185. 935 [139] D$[178]"O"[167] [137] 940
  186. 940 [139] D$[178]"G"[167] [137] 980
  187. 942 [153]
  188. 945 [133] "ENTER NUMBER OF OUNCES: ";O
  189. 950 [153]
  190. 955 G[178]O[172]31.103:G[178](([181](G[172]1000))[173]1000)
  191. 960 [153] O;"OUNCES = ";G;"GRAMS"
  192. 965 [153]
  193. 970 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS TYPE?  PRESS Y OR N"
  194. 972 [133] X$
  195. 974 [139] X$[178]"Y"[167] [137] 900
  196. 975 [139] X$[178]"N"[167] [137] 287
  197. 980 [153]:[133] "ENTER NUMBER OF GRAMS: ";G
  198. 982 [153]
  199. 985 O[178]G[173]31.103:O[178](([181](O[172]1000))[173]1000)
  200. 987 [153] G;"GRAMS = ";O;"OUNCES"
  201. 988 [153]
  202. 990 [137] 970
  203. 1000 [153]"LOADVERIFYPOUNDS TO KILOS OR VICE VERSA"
  204. 1005 [153]
  205. 1010 [153]"IF POUNDS TO KILOS, PRESS P"
  206. 1015 [153]
  207. 1020 [153]"IF KILOS TO POUNDS, PRESS K"
  208. 1025 [153]
  209. 1030 [133] A$
  210. 1035 [139] A$[178]"P"[167] [137] 1045
  211. 1040 [139] A$[178]"K"[167] [137] 1075
  212. 1045 [133]"ENTER NUMBER OF POUNDS:";P
  213. 1047 [153]
  214. 1050 K[178]P[173]2.207:K[178](([181](K[172]1000))[173]1000)
  215. 1055 [153] P;"POUNDS = ";K;"KILOS"
  216. 1060 [153]
  217. 1065 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE? PRESS Y OR N"
  218. 1067 [133] B$
  219. 1069 [139] B$[178]"Y"[167] [137] 1000
  220. 1070 [139] B$[178]"N"[167] [137] 287
  221. 1075 [153]:[133]"ENTER NUMBER OF KILOS: ";K
  222. 1077 [153]
  223. 1080 P[178]K[172]2.207:P[178](([181](P[172]1000))[173]1000)
  224. 1085 [153] K;"KILOS = ";P;"POUNDS"
  225. 1087 [153]
  226. 1090 [137] 1065
  227. 1100 [153]"LOADCONTQUARTS TO LITERS OR VICE VERSAWAIT"
  228. 1105 [153]
  229. 1110 [153]"IF QUARTS TO LITERS, PRESS Q"
  230. 1115 [153]
  231. 1120 [153]"IF LITERS TO QUARTS, PRESS L"
  232. 1125 [153]
  233. 1130 [133] A$
  234. 1135 [139] A$[178]"Q"[167] [137] 1140
  235. 1137 [139] A$[178]"L"[167] [137] 1180
  236. 1140 [153]
  237. 1145 [133]"ENTER NUMBER OF QUARTS:";G
  238. 1150 [153]
  239. 1155 L[178](.946[172]G):L[178]L[172]1000[170].5:L[178]([181](L))[173]1000
  240. 1160 [153] G;"QUARTS = ";L;"LITERS"
  241. 1165 [153]
  242. 1170 [153]"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE?  PRESS Y OR N"
  243. 1171 [153]
  244. 1172 [133] B$
  245. 1174 [139] B$[178]"Y"[167] [137] 1100
  246. 1175 [139] B$[178]"N"[167] [137] 287
  247. 1180 [153]:[133]"ENTER NUMBER OF LITERS: ";L
  248. 1182 [153]
  249. 1185 G[178]L[173].946:G[178](([181](G[172]1000))[173]1000)
  250. 1187 [153] L;"LITERS = ";G;"QUARTS"
  251. 1190 [137] 1165
  252. 1200 [153]"LOAD"
  253. 1205 [153]"DEFGALLONS TO LITERS OR VICE VERSA"
  254. 1206 [153]
  255. 1210 [153]"IF GALLONS TO LITERS, PRESS G"
  256. 1212 [153]
  257. 1215 [153]"IF LITERS TO GALLONS, PRESS L"
  258. 1217 [153]
  259. 1220 [133] A$
  260. 1225 [139] A$[178]"G"[167] [137] 1230
  261. 1227 [139] A$[178]"L"[167] [137] 1270
  262. 1230 [133]"ENTER NUMBER OF GALLONS: ";G
  263. 1232 [153]
  264. 1235 L[178]3.785[172]G:L[178](([181](L[172]1000))[173]1000)
  265. 1240 [153] G;"GALLONS = ";L;"LITERS
  266. 1245 PRINT
  267. 1250 PRINT"DO YOU HAVE OTHER CONVERSIONS OF THIS   TYPE? PRESS Y OR N"
  268. 1252 INPUT B$
  269. 1254 IF B$="Y"THEN GOTO 1200
  270. 1255 IF B$="N"THEN GOTO 287
  271. 1270 PRINT
  272. 1275 INPUT"ENTER NUMBER OF LITERS: ";L
  273. 1277 PRINT
  274. 1280 G=.264*L:G=((INT(G*1000))/1000)
  275. 1282 PRINT L;"LITERS = ";G;"GALLONS"
  276. 1285 GOTO 1250
  277. 1300 PRINT:PRINT"[147]"
  278. 1305 PRINT"DECIMAL EQUIV. FOR FRACTIONS OF AN INCH[146]":PRINT
  279. 1310 PRINT" 1/32=.0312    3/32=.0937"
  280. 1311 PRINT" 5/32=.1562    7/32=.2187"
  281. 1312 PRINT" 9/32=.2812   11/32=.3437"
  282. 1313 PRINT"13/32=.4062   15/32=.4687"
  283. 1314 PRINT"17/32=.5312   19/32=.5937"
  284. 1315 PRINT"21/32=.6562   23/32=.7187"
  285. 1316 PRINT"25/32=.7812   27/32=.8437"
  286. 1317 PRINT"29/32=.9062"
  287. 1318 PRINT
  288. 1320 PRINT" 1/16=.0625    3/16=.1875"
  289. 1321 PRINT" 5/16=.3125    7/16=.4375"
  290. 1322 PRINT" 9/16=.5625   11/16=.6875"
  291. 1323 PRINT"13/16=.8125   15/16=.9375"
  292. 1324 PRINT
  293. 1325 PRINT"  1/8=.1250     3/8=.3750"
  294. 1326 PRINT"  5/8=.6250     7/8=.8750"
  295. 1328 PRINT"  1/4=.25       3/4=.75"
  296. 1329 PRINT"  1/2=.5
  297. 1330 [153]"YOU MAY USE THIS TABLE TO CONVERT FRAC- TIONS TO DECIMALS OR VICE VERSA."
  298. 1331 [153]:[153]"PRESS ANY KEY TO CONTINUE."
  299. 1332 [133] J$
  300. 1333 [137] 640
  301.